home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tg.d64 / tax84ont 1.2.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  233 lines
  1. 3 REM  *****************************
  2. 4 REM  *****************************
  3. 5 REM  *****************************
  4. 30 REM *****************************
  5. 40 REM *****RALPH GRUNIER,C.A. *****
  6. 50 REM *****492 ROSELAWN AVENUE*****
  7. 60 REM *****TORONTO, ONTARIO   *****
  8. 70 REM *****M5N 1J8            *****
  9. 71 REM *****489-6860           *****
  10. 90 REM *****************************
  11. 91 REM *****************************
  12. 92 REM *****************************
  13. 93 REM *****************************
  14. 99 POKE53280,6
  15. 100 DIMC(5),F(5),D(14):REM V1.2 JAN 28/85LIST
  16. 110 POKE32768,0:S$="                                    "
  17. 120 PRINT"[147]ONTARIO 1984 INCOME TAX RETURN"
  18. 121 PRINT"FROM A PROGRAM BY J. BUTTERFIELD"
  19. 122 PRINT"MODIFIED AND UPDATED FOR 1984"
  20. 123 PRINT"BY RALPH GRUNIER, C.A.,TORONTO
  21. 130 [129]J[178]40[164]90:[139][194](J[170]32768)[178]32[167][130]J
  22. 140 L[178]J
  23. 150 [133]"INSTRUCTIONS";Z$:[139][198](Z$)[178]78[137]230
  24. 151 [153]""
  25. 160 [153]"ONTARIO INCOME TAX FOR 1984"
  26. 170 [153]"THIS PROGRAM IS IN THE SAME FORMAT"
  27. 171 [153]"AS A STANDARD INCOME TAX RETURN"
  28. 172 [153]"AND WILL CALCULATE YOUR 1984 TAXES."
  29. 173 [153]
  30. 174 [153]"THIS PROGRAM DOES NOT PERFORM"
  31. 175 [153]"CALCULATIONS SUCH AS THE 20% LIMITATION"
  32. 176 [153]"FOR CHARITABLE DONATIONS,THE SUB-"
  33. 177 [153]"CALCULATION FOR THE MARRIED EXEMPTION,"
  34. 178 [153]"OR IMPOSE LIMITATIONS ON OTHER"
  35. 179 [153]"DEDUCTIONS"
  36. 180 [153]"IT IS BASED ON EXISTING LAWS AS OF"
  37. 181 [153]"DECEMBER 1984"
  38. 190 [153]"FOR 'NIL' ITEMS, JUST PRESS  RETURN ."
  39. 200 [153]"FOR 'MULTIPLE' ENTRIES, ENTER AMOUNT"
  40. 210 [153]"AND PRESS  + ":[153]"INSTEAD OF 'RETURN' TO"
  41. 220 [153]"SIGNAL MORE ITEMS TO COME."
  42. 230 [133]"PRINTER(Y/N)";Z$:[139][198](Z$)[178]89[167][159]2,4:P5[178][171]1
  43. 240 [150][165]S(M)[178](M[170]S[171][182](M[171]S))[173]2
  44. 250 [150][165]B(M)[178](M[170]B[170][182](M[171]B))[173]2
  45. 260 [150][165]P(M)[178][181](M[172]P[173]100[170].49)
  46. 270 [150][165]I(M)[178][181](M[172]100[170].5)
  47. 280 [141]2000
  48. 290 P1[178]1:[141]2500
  49. 300 I$[178]"INCOME FROM EMPLOYMENT":[141]2700
  50. 310 P[178]20:S[178]5E4:[141]2200:I[178][165]S([165]P(I)):I$[178]"LESS EMPLOYMT EXPENS":[141]2300
  51. 320 I$[178]" **NET EMP EARNINGS**":[141]2400
  52. 321 I$[178]"OLD AGE PENSION":[141]2800
  53. 322 I$[178]"CANADA PENSION":[141]2800
  54. 323 I$[178]"OTHER PENSIONS":[141]2800
  55. 324 I$[178]"FAMILY ALLOWANCE":[141]2800
  56. 325 I$[178]"UIC BENEFITS RECEIVED":[141]2800
  57. 330 I$[178]"TAXABLE CDN DIVS":[141]2800:D(0)[178]I
  58. 340 I$[178]"INTEREST & INV INCM":[141]2800:D(1)[178]I
  59. 341 I$[178]"RENTAL INCOME(LOSS)":[141]2800
  60. 350 I$[178]"TAX CAPITAL GAINS (ACL)":[141]2800:B[178]0:D(4)[178][165]B(I)
  61. 351 I$[178]"SELF EMP INC(LOSS):GOSUB2800
  62. 360 I$="ALL OTHER INCOME (LOSS)":GOSUB2800
  63. 370 I$="**TOTAL INCOME**":GOSUB2400:D(2)=I
  64. 380 P1=2:GOSUB2500:GOSUB3300
  65. 390 PRINT"LESS:":GOSUB2200:I$="CPP (MAXIMUM 338.40)":GOSUB2700
  66. 400 I$="UIC (MAXIMUM 508.56)":GOSUB2800
  67. 401 I$="R.P.P.":GOSUB2800
  68. 402 I$="R.R.S.P.":GOSUB2800
  69. 403 I$="R.H.O.S.P.":GOSUB2800
  70. 404 I$="UNION/PROF":GOSUB2800
  71. 405 I$="TUITION(>$100):GOSUB2800
  72. 406 I$[178]"CHILD CARE":[141]2800
  73. 407 I$[178]"A.B.I.L.":[141]2800
  74. 410 I$[178]"OTHER DEDUCTIONS":[141]2800
  75. 420 I$[178]" *TOTAL DEDUCTIONS* :":[141]2400
  76. 430 I[178]C(C):I$[178]" *NET INCOME*":D(3)[178]I:[141]3300
  77. 440 [153]"EXEMPTIONS:":[141]2200
  78. 450 I[178]396E3:I$[178]"BASIC EXEMPTION":[141]3100
  79. 460 I$[178]"AGE EXEMPT($2480)":[141]2800
  80. 461 I$[178]"MARRIED EXEMPT($3470)":[141]2800
  81. 470 I$[178]"DEPNDT CHILD EXMPT":[141]2800:I$[178]"OTHER EXMPT":[141]2800
  82. 480 I$[178]" *TOTAL EXEMPT*":[141]2400:D(12)[178]I
  83. 490 I$[178]" **LINE 46**":[141]3000
  84. 500 [141]2200:S[178]1E5:I[178][165]S(D(0)[170]D(1)[170]D(4)):D(10)[178]I
  85. 510 I$[178]"*I, D & CG DEDUCTION":[141]3200
  86. 511 I$[178]"PENSION DEDUCTION":[141]2800
  87. 520 [141] 2100:I$[178]"MEDICAL EXPENSES":[141] 2700
  88. 530 [139]I[177]0[167][141]2200:P[178]3:I[178][165]P(D(3)):I$[178]"*LESS 3% N.I.":[141] 2300
  89. 538 I$[178]"ALLOWABLE MED EXP":B[178]0:C(C)[178][165]B(C(C)):[141]2400
  90. 540 I$[178]"CHARITABLE DONATNS":[141]2800:I[178]C(C)
  91. 550 I$[178]"DISABILITY DEDUCTION":[141]2800
  92. 573 I$[178]"EDUCATION ($50/MTH)":[141]2800
  93. 574 I$[178]"DEDUCTIONS FROM SPOUSE":[141]2800
  94. 575 I$[178]"NON-CL OTHER YEARS":[141]2800
  95. 576 I$[178]"NET-CL OTHER YEARS":[141]2800
  96. 580 I$[178]"ALL OTHER DEDUCTIONS":[141]2800
  97. 590 I$[178]"**TOTAL DEDUCTIONS":[141]2400
  98. 600 I$[178]" **TAXABLE INCOME**":[141]3000:D(5)[178]I:[141]3500
  99. 610 [139]I[179][178]30E5[175]D(0)[178]0[167][153]"YOU MAY USE TAX TABLE .. OR..."
  100. 620 P1[178]1:[141]2600
  101. 660 [131]59424,14732,34
  102. 670 [131]34664,7304,30
  103. 680 [131]22284,4209,25
  104. 690 [131]17332,3070,23
  105. 700 [131]12380,2080,20
  106. 710 [131]7428,1139,19
  107. 720 [131]4952,693,18
  108. 730 [131]2476,272,17
  109. 740 [131]1238,74,16
  110. 750 [131]0,0,6
  111. 760 [131]-1
  112. 770 [135]X,Y,P:[139]I[179]X[172]100[137]770
  113. 780 T[178]Y[172]100:P$[178]"ON FIRST $"[170][196](X)[170]" TAX IS      "[170][196](Y):[141]3400
  114. 790 J[178]I[171]X[172]100:I[178][165]P(J)
  115. 800 P$[178]"ON RMG $"[170][196](J[173]100)[170]" TAX AT"[170][196](P)[170]"% IS $"[170][196](I[173]100)
  116. 810 [141]3400
  117. 820 I[178]I[170]T:[141]2000:C[178]C[171]1:I$[178]"TOTAL FED INCM TAX":[141]3100
  118. 830 S[178]I:P[178]68[173]3:I[178][165]S([165]P(D(0))):D(11)[178]I
  119. 840 [139]I[177]0[167][141]2200:I$[178]"DIV TAX CREDIT":[141]2300
  120. 850 I$[178]" *BASIC FEDERAL TAX*":I[178]C(C):[141]3300:[141]3500:D(6)[178]I
  121. 860 [139]I[179]2E4[167]R[178]I
  122. 861 [139]I[177][178]6E5[175]I[179][178]8E5[167]R[178]2E4[171].1[172](I[171]6E5)
  123. 862 [139]I[177][178]2E4[175]I[179]6E5[167]R[178]2E4
  124. 863 [139]I[177]8E5[167]R[178]0
  125. 864 I[178]R
  126. 870 [141]2200:I$[178]"REDUCTION FOR SELF":[141]3200
  127. 880 I$[178]"REDUCTION FOR SPOUSE":[141]2800:S[178]4E4:I[178][165]S(C(C))
  128. 890 I$[178]"FEDERAL TAX REDUCTION":[141]2300
  129. 900 I$[178]" **FEDERAL TAX**":[141]3000:D(7)[178]I
  130. 910 [141]2200:I$[178]"FOREIGN TAX PAID":[141]2800:[139]I[178]0[137]970
  131. 920 W[178]I:I$[178]"FORGN INCOME":[141]2800:K[178]I:X[178](D(3)[171]D(10))[173]100:Y[178](D(7)[170]D(11))[173]100
  132. 930 S[178][181](K[173]X[172]Y[170].5)
  133. 940 P$[178][196](K[173]100)[170]"/"[170][196](X)[170]"*"[170][196](Y)[170]" ="[170][196](S[173]100):[141]3400
  134. 950 I[178][165]S(W):I$[178]"--DEDUCT:":[141]2300
  135. 960 [153]"..ANOTHER COUNTRY...":[137]910
  136. 970 C[178]C[171]1:I$[178]"FEDERAL TAX PAYABLE":[141]2400:D(8)[178]I:[141]3500
  137. 980 P[178]48:I[178][165]P(D(6)):I$[178]"BASIC ONTARIO TAX":[141] 3300:D(9)[178]I
  138. 985 B[178]0:P[178]5:I[178][165]P([165]B(D(9)[171]11080)):I$[178]"SOCIAL SERVICES TAX":[141] 3300
  139. 990 D(9)[178]D(9)[170]I:I[178]D(9):I$[178]"ONTARIO TAX":[141]3300
  140. 1000 B[178]0:P[178]50:I[178][165]P([165]B(2218E2[171]D(5)))
  141. 1010 [139]D(5)[179][178]2026E2[167]I[178]D(9)
  142. 1020 I$[178]"ONT TAX REDUCTION":[141]3300
  143. 1030 D(9)[178]D(9)[171]I:I[178]D(9):I$[178]"ONT TAX PAYABLE":[141]3300
  144. 1040 [135]X:[139]X[179][177][171]1[137]1040
  145. 1050 P$[178]" ==ONTARIO PROPERTY & SALES TAX==":[141]3400:[141]2000
  146. 1060 [133]"ARE YOU ELIGIBLE FOR THESE CREDITS  YCMDCMDCMD";Z$:[139][198](Z$)[179][177]89[137]1220
  147. 1070 I$[178]"TOTAL RENT PAYMENTS":[141]2700:[139]I[178]0[167]C[178]C[171]1:[137]1090
  148. 1080 P[178]20:I[178][165]P(I):I$[178]"*20% OF RENT":[141]2300
  149. 1090 I$[178]"PROPERTY TAXES&COLLG RES":[141]2800
  150. 1100 I[178]C(C):P[178]10:X[178][165]P(I):I$[178]"*OCCUPANCY COST*":[141]2400:[141]3500:C(C[170]1)[178]0
  151. 1110 [141]2000
  152. 1120 S[178]18E3:I[178][165]S(I):I$[178]" ADD..":[141]3100:I[178]X:I$[178]" TO..":[141]3200
  153. 1130 I$[178]"PROPERTY TAX CREDIT":[141]2400
  154. 1140 P[178]1:I[178][165]P(D(12)):I$[178]"SALES TAX CREDIT":[141]3200
  155. 1150 I$[178]"TOTAL CREDITS":[141]2400
  156. 1160 D1[178]D(5):[139]D1[179]2026E2[167]D1[178]0
  157. 1170 [141]2200:P[178]2:I[178][165]P(D1):I$[178]"LESS(B)--":[141]2300
  158. 1180 B[178]0:S[178]5E4:I[178][165]S([165]B(C(C))):I$[178]"ONTARIO P & S CREDITS":[141]2300
  159. 1190 [141]2100
  160. 1220 I$[178]"ONT POLITICAL TAX CREDIT":[141]2700
  161. 1230 I$[178]"*TOTAL ONT TAX CREDITS":I[178]C(C[171]1)[170]I:D(13)[178]I:[141]2300
  162. 1240 [141]2000
  163. 1250 P1[178]4:[141]2500:[141]2000:I[178]D(8):I$[178]"FEDERAL TAX PAYABLE":[141]2300
  164. 1260 I$[178]"POLIT/BUS/EMPLMT CREDIT":[141]2800:X[178]D(8)[170]D(9)[171]I
  165. 1270 C[178]C[171]1:I$[178]"ONTARIO TAX PAYABLE":I[178]D(9):[141]3300
  166. 1280 C[178]C[171]1:I$[178]"TOTAL PAYABLE":I[178]X:[141]3300:[141]3500
  167. 1290 [141]2200:I$[178]"TAX DEDUCTED PER SLIPS":[141]2700
  168. 1300 I$[178]"ONTARIO TAX CREDITS":I[178]D(13):[141]3200
  169. 1310 I$[178]"OVERPAYMENTS/INSTALMENTS":[141]2800
  170. 1320 I$[178]"CHILD TAX CREDIT":[141]2800
  171. 1330 I[178]C(C):C[178]3:I$[178]"**TOTAL CREDITS**":[141]3300:[141]3500
  172. 1340 C[178]2:I$[178]"BALANCE DUE":I[178]X[171]I:[139]I[179]0[167]I$[178]"REFUND:":I[178][182](I)
  173. 1350 [141]3300:[153]:[139]P5[167][129]J[178]1[164]10:[152]2:[130]J:[160]2
  174. 1360 [128]
  175. 1999 [143] CLEAR ALL ACCUMS
  176. 2000 C[178]1:C(1)[178]0:[141]2100:[141]2100
  177. 2099 [143] MOVE TO SUBTOTAL
  178. 2100 C[178]C[170]1:F(C)[178]1:C(C)[178]0:[142]
  179. 2199 [143] MOVE TO NEG SUBTOTAL
  180. 2200 C[178]C[170]1:F(C)[178][171]1:C(C)[178]0:[142]
  181. 2299 [143] SUM I INTO NEXT HIGHER TOTAL
  182. 2300 C(C)[178]I
  183. 2399 [143] SUM C(C) INTO NEXT HIGHER TOT
  184. 2400 I[178]C(C):F[178]F(C):C[178]C[171]1:C(C)[178]C(C)[170]I[172]F:[137]3300
  185. 2499 [143] PRINT PAGE ID
  186. 2500 P$[178]"   ===PAGE":[137]2610
  187. 2599 [143] PRINT SCHED ID
  188. 2600 P$[178]"   ===SCHEDULE"
  189. 2610 [141]3700:P$[178][196](P1)[170]" OF RETURN===":[137]3400
  190. 2699 [143] PROMPT NEW VALUE
  191. 2700 C(C)[178]0
  192. 2799 [143] PROMPT INPUT
  193. 2800 I[178]0:[161]Z$:[153]I$;"? ";
  194. 2810 Y$[178]"":[153]"SPC(CMD";
  195. 2820 [161]Z$:[139]Z$[178]""[137]2820
  196. 2830 Z[178][198](Z$):[139]Z[177]47[175]Z[179]58[137]2910
  197. 2840 [139]Z$[178]"-"[175]Y$[178]""[137]2910
  198. 2850 [139]Z$[178]"."[137]2910
  199. 2860 [139](Z[178]157[176]Z[178]20)[175]Y$[179][177]""[167]Y$[178][200](Y$,[195](Y$)[171]1):[153]"CMD ";:[137]2920
  200. 2870 [139]Z$[178]"+"[167][153]" ";:I[178]I[170][197](Y$):[129]J[178]0[164][195](Y$):[153]"CMD";:[130]:[137]2810
  201. 2880 [139]Z[178]13[175]I[178]0[167][153]"ON";
  202. 2890 [139]Z[178]13[167]I[178][165]I(I[170][197](Y$)):[153]:[137]3200
  203. 2900 [137]2820
  204. 2910 Y$[178]Y$[170]Z$
  205. 2920 [153]Z$;:[137]2820
  206. 2999 [143] FORCE NON NEGATIVE
  207. 3000 B[178]0:I[178][165]B(C(C))
  208. 3099 [143] SET VALUE TO I
  209. 3100 C(C)[178]0
  210. 3199 [143] ADD VALUE
  211. 3200 C(C)[178]C(C)[170]I
  212. 3299 [143] PRINT I$, VALUE
  213. 3300 P$[178]I$:[141]3700:M[178]1E8:[141]3600
  214. 3310 J[178][182](I):Z$[178]" ":Z[178]0
  215. 3320 D[178][181](J[173]M):J[178]J[171]D[172]M:[139]D[178]Z[167]P$[178]" ":[137]3340
  216. 3330 Z$[178]",":Z[178]10:P$[178][199](D[170]48)
  217. 3340 [141]3700:M[178]M[173]10:[139]M[178]1E4[167]P$[178]Z$:[141]3700
  218. 3350 [139]M[178]10[167]P$[178]".":[141]3700:Z[178]M
  219. 3360 [139]M[177][178]1[137]3320
  220. 3370 [139]I[179]0[167]P$[178]"CR":[141]3700
  221. 3380 [137]3500
  222. 3399 [143] PRE PRINT
  223. 3400 [141]3700
  224. 3499 [143] NEW LINE
  225. 3500 P$[178][199](13):[137]3700
  226. 3599 [143] COLUMN TAB
  227. 3600 [139]P5[167][152]2,[200](S$,41[171]C[172]10);
  228. 3610 [139]L[177]70[167][153][200](S$,41[171]C[172]10);
  229. 3620 P$[178][200](S$,25[171][195](I$))
  230. 3699 [143] PRINT
  231. 3700 [139]P5[167][152]2,P$;
  232. 3710 [153]P$;:[142]
  233.